home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / c / AmiVoGL_MDEV.lha / examples / ftrivial.F < prev    next >
Text File  |  1991-06-03  |  1KB  |  72 lines
  1.     program ftrivial
  2.  
  3. #ifdef SGI
  4. #include "fgl.h"
  5. #include "fdevice.h"
  6. #else
  7. #include "fvogl.h"
  8. #include "fvodevice.h"
  9. #endif
  10. c 
  11. c  the basic test program for a driver if we can draw a line and do
  12. c  hardware text we are almost there!
  13. c
  14.     integer*2 val
  15.  
  16. c
  17. c  Open a window (or just the screen in some cases)
  18. c
  19.     call winope('trivial', 7)
  20. c
  21. c  We want to know about keyboard hits....
  22. c
  23.     call qdevic(INPUTC)
  24.     call qdevic(KEYBD)
  25. c
  26. c  we want our coordinate system to run from -1 to 1 in x and y
  27. c
  28.     call ortho2(-1.0, 1.0, -1.0, 1.0)
  29. c
  30. c  set current color to black 
  31. c
  32.     call color(BLACK)
  33. c
  34. c  clear to current color
  35. c
  36.     call clear
  37. c
  38. c  we want to draw in green 
  39. c
  40.     call color(GREEN)
  41. c
  42. c  draw a horizontal line at y = 0 
  43. c
  44.     call move2(-1.0, 0.0)
  45.     call draw2(1.0, 0.0)
  46. c
  47. c  pause for some input 
  48. c
  49.     i = qread(val)
  50. c
  51. c  draw a line along x = 0 
  52. c
  53.     call move2(0.0, 0.0)
  54.     call draw2(0.0, 1.0)
  55. c
  56. c  move text position to the middle of the screen 
  57. c
  58.     call cmov2(0.0, 0.0)
  59. c
  60. c  draw 'Hello' starting at the origin 
  61. c
  62.     call charst('Hello', 5)
  63. c
  64. c  pause again 
  65. c
  66.     idum = qread(val)
  67. c
  68. c  set screen back to original state 
  69. c
  70.     call gexit
  71.     end
  72.